remove_VS Function

private elemental function remove_VS(string, start, finish) result(rem_string)

Remove a substring from a varying string

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
integer, intent(in), optional :: start
integer, intent(in), optional :: finish

Return Value type(varying_string)


Source Code

  elemental function remove_VS (string, start, finish) result (rem_string)

    type(varying_string), intent(in) :: string
    integer, intent(in), optional    :: start
    integer, intent(in), optional    :: finish
    type(varying_string)             :: rem_string


    rem_string = remove(char(string), start, finish)

! Finish

    return

  end function remove_VS